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HISTORY ; Detailed Current Edit History 
DECLARATIONS 


MTHSIIDNNT = return nearest integer as INTEGER*2 


16-SEP-1984 01:41:50 VAX/VMS Macro v04-00 
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s 
-SEP=19 MTHRTL. 
E miwah sour - Wearest Integer 
T /2-001/ 3; File: MTHIIDNNT.MAR 
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FACILITY: MATH LIBRARY 
p++ 
; ABSTRACT: 


VERSION: 1 
HISTORY: 


AUTHOR: 
Jonathan M. Taylor, 28-Jul-77: Version 0 


MODIFIED BY: 
Steven B. Lionel, 19-Feb-79: Version 2 
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1 
: Deteiled Current Edit History § 
-SBTTL HISTORY 


SEP=1 1384 1:41: +20 AX/VMS Macro V04-00 
SEP=1 


1:25: 


MTHRTL.SRCIMTHI IDNNT MAR; 1 


3; Detailed Current Edit History 


; Edit History for Version 1 of MTHS$SIIDNNT 


Remove MTHSFLAG_JACKET. TNH 5-July-78 


Update gig fumber and ¢ copyri nt notice. 
ry a as $"35-bEc- 


; BS 16-NOV-78 


Rake Tt, work "te negative values + add IV to entry mask. 


Change to CVTRDL. 


SBL 19-Feb-1979 
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BOOT DECLARATIONS = See 18Be F}SE:o FANAWES Baca WOK OO mans1 2% cd 
LSBTTL DECLARATIONS 


: INCLUDE FILES: 
: EXTERNAL SYMBOLS: 
; MACROS: 


: PSECT DE ARATIONS 


CL 
PSECT -MINSCODE PIC, SHR, LONG, EXE, NOWRT 
j 


: EQUATED SYMBOLS: 


+ OWN STORAGE: 
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MTHS1IONNT - Nearest 
2-001 MTHSIIDNNT = return nearest integer as 1 6-SEP-19 MTHRTL.SRCJMTHIIDNNT.MAR; 1 (4) 
0 i -SBTTL MTHSIIDNNT - return nearest integer as INTEGER*2 
so4 
ys : FUNCTIONAL DESCRIPTION: 
36 : MTHSIIDNNT returns as its function value the INTEGER*2 
95 ; integer nearest to its REAL*8 argument, rounded away from 
0 3¢ : zero. 
09 36 ; CALLING SEQUENCE: 
999 38 ; nearest_integer.ww.v = MTHSIIDNNT (arg.rd.r) 
000 100: 
000 101 ; INPUT PARAMETERS: 
44 198 ; arg - REAL*8 argument 
0000 104 : IMPLICIT INPUTS: 
0000 105; NONE 
0000 196 3 
0000 107 ; OUTPUT PARAMETERS: 
0000 108 ; NONE 
0000 109; 
0000 110 ; IMPLICIT OUTPUTS: 
0000 111; NONE 
0000 a 3 
0000 113 ; FUNCTION VALUE: 
i Wi s nearest_integer - trunc(arg + .5*sign(arg)) 
0000 116 ; SIDE EFFECTS: 
4 a4 : Reserved operand and integer overflow exceptions may occur. 
0000 119 :-- 
3088 \$9 
000 121 
0000 \$¢ 
4000 9444 1 eENTRY MTHSIIONNT, “M<IV> 
50 04 BC 68 8 02 124 CVTRDL @4(AP), RO ; RO gets rounded argument 
50 50 F 006 125 CVTLW RO, RO ; RO gets INTEGER*2 
04 0009 $6 RET 
Q0O0A 127 
000A 1$8 
000A 129 END 


a 


MTHS1IDNNT -N st Int 16-SEP-1984 01:41:50 
Symbol table ie ati ge pats 7 94:53:20 
MTHS1IDNNT 00000000 RG 01 

pfeveacnnr osm aanemae + 

: Psect synopsis ; 
PSECT name Allocation PSECT No. Attributes 
» OS « 00000000 8.) 9 ( 0.) NOPIC USR CON ABS LCL 
_MTHSCODE OO00000A ¢ =«610.) 01¢ 1.) PIC USR CON REL LCL 

pews e torsos eees Seeensomon + 
H Performance indicators ; 

Phase Page faults CPU Time Elapsed Time 
Initialization 30 00:00: 8.08 00:00:01.1? 
Command processing 107 00:00: 8:3 EL aE 
Pass 65 00:00:00.34 00:00:02.61 
Symbol table sort 0 00:0 00-09 Bo bo 01 95 
Pass 37 00:00:00. 0:00:01.7 
Symbol table output 1 00:0 08-8 00:00:00.00 
Psect synopsis output 3 00:00:00.0 00:00:00.02 
Cross-reference output 2 BO: 0:67 75 bs Baa fe 
Assembler run totals 24 0:00:01.25 00:00:09. 


The_working 
1223 bytes ( 
There were 10 
9 source Lines were read in Pass 1, producin 
0 pages of virtual memory were used to define 


et Limit was 900 pages. 

pages) of virtual memory were used to buffer the intermediate code. 

pages of symbol table space allocated to hold 1 non-local and 0 local symbols. 
10 object records in Pass 2. 

macros. 


Swe OC ET MO BOR RO Mm Se 


Macro Library name 
-$255$DUA28: CSYSLIBISTARLET.MLB; 2 0 
0 GETS were required to define 0 macros. 


There were no errors, warnings or information messages. 
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EXE RD NOWRT NOVEC LONG 


MACRO/ENABLE=SUPPRESSION/DI SABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:MTHI1DNNT/OBJ=OBJ$:MTHIIDNNT MSRC$:MTHI IDNNT/UPDATE=(ENHS$:MTHI IDNNT) 
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